COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	ARRAY F3,F2(512)
C00004 ENDMK
C⊗;
ARRAY F3,F2(512);
VARIABLE X,Y;    <FILE NAME=LINEN
INSTRUMENT LINFM;
LINEN(P4,P5,P6,P7,P8,X);  <AMP, RISE, DECAY, TOTAL, FUNC, VAR.
LINEN(P9*P11*MAG,P5,P6,P7,P12,Y);<AMP, RISE, DECAY, TOTAL, FUNC, VAR.
OSCIL(U2+P10*P11*MAG,P10*MAG,F3); <F3=SINE WAVE
COSCIL(U1,MAG*P3+U3,F3); <YOU MUST USE A COSCIL HERE!
OUTA←OUTA+U4;
END;
SEG(F2);1,1  .4,8  .3,12  .2 17 .2 25 .1 50 0 75 0 100;
SYNTH(F3);1 1  999;
X←0;
Y←0;
 
PLAY;LINFM 0 .5 A 1000 .1  .1 .5 F2 1 10  A  F2;X←Y←0;FINISH;